home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 33 / 64er_Magazin_Sonderheft_33_19xx_Markt__Technik_de_Side_B.d64 / clean disk (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  556b  |  24 lines
  1. 1 gosub1000:print"[147]validating disk..."
  2. 10 open1,8,15,"v"
  3. 20 open2,8,2,"#":print"[147]"
  4. 30 print#1,"u1 2 0 18 0"
  5. 40 sys49152:sys49155
  6. 50 a=52996
  7. 60 fort=1to35:z=1:x=0
  8. 65 m=20:ift>17thenm=18:ift>24thenm=17:ift>30thenm=16
  9. 70 fors=0tom
  10. 80 w=43:if(peek(a+z)and2^x)<>0thenw=45
  11. 81 ifw=45thenprint#1,"u2 2 0";t;s
  12. 90 poke1023+40*s+t,w
  13. 100 x=x+1:ifx<8then110
  14. 101 x=0:z=z+1
  15. 110 nexts
  16. 115 a=a+4
  17. 120 nextt
  18. 130 close2:close1
  19. 140 end
  20. 1000 data76,6,192,76,28,192,162,2,32,198,255,162,0,32,207,255,157,0,207,232,224
  21. 1010 data144,208,245,32,204,255,96,162,2,32,201,255,162,0,138,32,210,255,232
  22. 1020 data208,250,32,204,255,96
  23. 1030 fori=49152to49152+45:reada:pokei,a:next:return
  24.